home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / dev / asm / AmigaGS-Dev.lha / AmigaGS / Macros / _Libraries.Macro < prev    next >
Encoding:
Text File  |  2000-05-03  |  513 b   |  43 lines
  1. ;
  2. ; Libraries.macro
  3. ;
  4. InitLib    MACRO
  5.     Move.l    $4,a6
  6.     Lea.l    \1,a1
  7.     Moveq.l    #0,d0
  8.     Add.l    #4,a1
  9.     Jsr        -408(a6)
  10.     Lea.l    \1,a0
  11.     Move.l    d0,(a0)
  12. ;    Move.l    d0,a1
  13. ;    Jsr        -414(a6)
  14.     ENDM
  15. LibCall    MACRO
  16.     Lea.l    \1Base,a5
  17.     Move.l    (a5),a6
  18.     Jsr        \2(a6)
  19.     ENDM
  20. SaveL    MACRO
  21.     Lea        \2,a0
  22.     Move.l    \1,(a0)
  23.     ENDM
  24. LoadL    MACRO
  25.     Lea        \1,a0
  26.     Move.l    (a0),\2
  27.     ENDM
  28. SaveW    MACRO
  29.     Lea        \2,a0
  30.     Move.w    \1,(a0)
  31.     ENDM
  32. LoadW    MACRO
  33.     Lea        \1,a0
  34.     Move.W    (a0),\2
  35.     ENDM
  36. SaveB    MACRO
  37.     Lea        \2,a0
  38.     Move.b    \1,(a0)
  39.     ENDM
  40. LoadB    MACRO
  41.     Lea        \1,a0
  42.     Move.b    (a0),\2
  43.     ENDM